<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<%
dim db
dim rs
dim filepath

filepath=server.mappath ("\bkdraper\AfterHours\access\BackEnd\AfterHours_be.mdb")
set db = server.createobject ("adodb.connection")
	db.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath

set rs=db.execute ("select * from EmergencyPhoneNumbers;")
%>
<STYLE TYPE="text/css">
<!--
.style1 {
	font-family: Arial, Helvetica, sans-serif;
	font-weight: bold;
	font-size: 36px;
}
body {
	background-color: #F5F5F5;
}
-->
</STYLE>
</HEAD>

<BODY>
<P CLASS="style1">Emergency Phone Numbers
</P>
<P><STRONG>* Use these phone numbers ONLY if you cannot reach the technician for a certain company.</STRONG></P>
<TABLE WIDTH="100%"  BORDER="1" CELLSPACING="0" CELLPADDING="0">
  <TR BGCOLOR="#00CCFF">
    <TH WIDTH="29%" SCOPE="col">Company</TH>
    <TH WIDTH="30%" SCOPE="col">Emergency Phone Number</TH>
    <TH WIDTH="41%" SCOPE="col">Contact</TH>
  </TR>
  <% 
  rs.movefirst
  do while not rs.eof
  %>
  <TR BGCOLOR="#FFFFFF">
    <TD> <%= rs("company") %></TD>
    <TD> <%= rs("EmergencyPhoneNumber") %></TD>
    <TD><%= rs("contact") %> </TD>
  </TR>
  <% 
  rs.movenext
  loop
  %>
</TABLE>
<P>&nbsp; </P>
</BODY>
</HTML>
